perm filename WWW[SCR,LCS] blob
sn#369169 filedate 1978-07-21 generic text, type T, neo UTF8
PRECEDE; < NEXT DECLARES FUNCTION FILE AND INSTRUMENT NAMES.
FUNC FUN.FUN[SCR,LCS];
INST TOOT TOP BOTM;
*
TOP 0 1 8; < BG time=0, inst 1 plays 8 notes.
P2 RHY/8/16//8//4//2; < Rhythm is 8th, 2 16ths, 2 8ths, 2 quarters,
half. See section 4 and following for use
of 'RHY', 'NOTES', etc.
P3 NOTES/C4/D/E/F/G/A/B/C5; < Scale goes up from middle C.
P4 .45; < AMPLITUDE FACTOR
P5 F2; < SOSTENUTO ENVELOPE
P6 F1; < A SINE WAVE
END;< Ampl(P4)=500, envelope is sostenuto (F2).
BOTM ; P2 RHY/4 X 4/2/FINE; < 4 quarters and 1 half. 'FINE'=END
P3 NOTES/C3/A/F/G/C;<Bass notes
P4 .5 ;
< AMPLITUDE FACTOR IS .5
P5 F3; < F3 will give semi-staccato.
P6 F4; < CLARINET-LIKE TONE
END;
TEMPO/ 96 ; < MM=96
RUN;
EXAMP.SCR EDIT FILE NAME=EXAMP STORAGE= 80/ 5000
TEMPO FACTOR= 1.00
TOP RANDOM TF = .00 DURATION = 8. NOTES
BOTM RANDOM TF = .00 DURATION =*******"
TMP= 96.000 TO 96.000 DURING****** SECS. BASIC TIME.
< EXAMP.SCR -- RANDOM NUMBER= 1
PLAY;
TOP 0.000 0.313 C 0.450 F2 F1 ;< 1 TOP 1 > 0.00
BOTM 0.000 0.625 C/2 0.500 F3 F4 ;< 2 BOTM 1 > 0.00
TOP 0.313 0.156 D 0.450 F2 F1 ;< 1 TOP 2 > 0.50
TOP 0.469 0.156 E 0.450 F2 F1 ;< 1 TOP 3 > 0.75
TOP 0.625 0.313 F 0.450 F2 F1 ;< 1 TOP 4 > 1.00
BOTM 0.625 0.625 A/2 0.500 F3 F4 ;< 2 BOTM 2 > 1.00
TOP 0.938 0.312 G 0.450 F2 F1 ;< 1 TOP 5 > 1.50
TOP 1.250 0.625 A 0.450 F2 F1 ;< 1 TOP 6 > 2.00
BOTM 1.250 0.625 F/2 0.500 F3 F4 ;< 2 BOTM 3 > 2.00
TOP 1.875 0.625 B 0.450 F2 F1 ;< 1 TOP 7 > 3.00
BOTM 1.875 0.625 G/2 0.500 F3 F4 ;< 2 BOTM 4 > 3.00
TOP 2.500 1.250 C*2 0.450 F2 F1 ;< 1 TOP 8 > 4.00
BOTM 2.500 1.250 C/2 0.500 F3 F4 ;< 2 BOTM 5 > 4.00
FINISH; < EXAMP.SCR
AMPL. FACTOR= 1.00, P4 MAX.AMP.= 0.95, AT TIME= 0.000
TOTAL DURS: TOP = 3.750 BOTM = 3.750